RFoptions(seed=0) ## *ANY* simulation will have the random seed 0; set
## RFoptions(seed=NA) to make them all random again
x <- seq(0, 10, 0.01)
z <- RFsimulate(RMexp(), x)
RFgetModelInfo(RFsimulate, level=0, which="internal")
# i.e., circulant embedding has been chosen
x <- 1:4
s <- 2
RFcov(model=RMexp(s=s), x, x, coord_sys="cartesian") ## scale interpreted as
## for standard (cartesian) models
RFcov(model=RMexp(s=s), x, x, coord_sys="earth") ## scale measured in degree
RFcov(model=RMexp(s=s / 180 * pi), x, x, coord_sys="earth") # now comparable to
## the cartesian case
RFcov(model=RMexp(s=s), x, x, coord_sys="earth", zenit=c(2.5, 2.4),
new_coord_sys="gnomonic") # projection onto a plane first. Then the
## scale is interpreted in the usual, i.e. cartesian, sense
RFcov(model=RMexp(s=s * 6350 / 180 * pi), x, x, coord_sys="earth",
zenit=c(2.5, 2.5), new_coord_sys="gnomonic") # projection onto a plane
## first. Then the scale is interpreted in usual, i.e. cartesian, sense
FinalizeExample()
Run the code above in your browser using DataLab